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MODIFIED BY: 


v03-001 8LS0175 Benn Schreiber 15-Jun-1982 
Add routine SUMSUPDATE_QUAL to process /UPDAYE qualifier 


-TITLE SUMSLIST 
7 IDENT 'V04-000' 
> 3 
Sit & 
8 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
0 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. “ 
19 ALL RIGHTS RESERVED. * 
° te 
8 \¢ 3* THIS SOFTWARE iS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED a 
15 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0 14 ;* INCLUSION OF THE ABOVE Sell Ld NOTICE. THIS SOF TWAR —E OR ANY OTHER * 
000 15 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE TO ANY * 
000 16 3* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 8 
43 ! 3* TRANSFERRED. * 
7” ® 
4448 8 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 0 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 1 3* CORPORATION. * 
;* we 
0000 : 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS % 
0000 4 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 96 is ° 
0000 § jtteeneeeererereeeeeeeeeerentneeenereetrnennntenennerentenereeteeeteeteeetess 
0000 a8 
$000 80:48 
8 4 1; FACILITY: 
0 0 5 > ABSTRACT: 
0 ; é : Source Update Merge procedure to create update files List 
0 0 8 > ENVIRONMENT: USER MODE 
0 ? t AUTHOR: R. Newland 
4 
: 


SOOO OOSCSOSOOOOSOOOOoOSOSoOSoO 


SOOSOSSOSOSSOOOOSSOSOSOSOSOSSO 
Fo at ot at ot at ot at 
Bete Se Ge Ge Ge Ge Ge 


ARB RAAAAAALASALA SALAS ASAE EASES A SE SERS ER SEER ESET ER ERE EEE E TS ECS ECS e eee aca 


SS 


ary 


0000 


2A 2A 57 45 4E 2A 2A 38 8" 


0000 


DOOSOQOOCOOCOOOOOCOO 


po loleojlolololo) 


Soooooooooooo 


SOoooooooooooooSoo 
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"SrSEb=1984 09:39:08 Feumvencisumeisimar;1 28 3, 
: -SBTTL DECLARATIONS 
Macro definitions 
DEFUPFBLK ; SUM update file block 
fee Ace 
SDSCDEF ; Descriptor definitions 


Local storage 


~-PSECT SUMSRO_DATA,NOEXE ,NOWRT,LONG 


gum_ {NIAUDST: ; Initial audit string 
SASCIC /;**NEWS®/ 


-PSECT SUMSRW_DATA,NGEXE,LONG 


gum_ CLIVA ; Qualifier value descriptor block 
SCLIREQDESC = 
RQTYPE = CLISK_ASCIIVAL ; Convert an ASCII string 


SINS NINA AAA AAA AA SO IIIT 
CONAUEW M--OOODNAUE UW" OOODNOULS wr 
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.SBTTL SUMSUPDATE_QUAL | 


+4 
; Description: 

This procedure creates a singly | inked update files list from the vaiues of 
; a /UPDATE qualifier. The qualifier values are expected to be file specs. 


no values are supplied with the qualifer a List containing one entry is 
; created. 


Calling sequence: 
CALLS/CALLG 


Inputs: 


4(AP) = Address of getvalue routine (normally CLISGET_VALUE) 

( Address of descriptor for qualifier name (normally ‘UPDATE') 
12(AP) = address to put update files List address (the address 
of the first update file) 


> 
v 
~ 
" 


16(AP) = Address of a dynamic string descriptor. Its contents are 
indeterminate after this routine returns. 
Outputs: 
None 


Implicit inputs: 
The CLI data base 
Implicit outputs: 
The update files List 
Procedure value: 
SUMS_NORMAL = Normal completion 
LIBS_INSVIRMEM, 


LIB$_BADBLOSIZ, 
LIBS_BADBLOADR = Error from calling LIBSGET_VM or LIBSFREE_VM 


Bete Ge Ge Ge Ge Se Ge Ge Se Ge Se Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Se Ge Se Ge Ge Ge Se Ge Se Se Ge Sse Se Fe Gees 


-PSECT SUMSCODE ,NOWRT,LONG 
~-ENTRY SUMSUPDATE_QUAL ,“M<R2,R3,R4,R5,R6,R7,R8,R10,R11> 


MOVL 16(AP),R11 R11 Points to the descriptor 
r 


5 CLRL Initialize file numbe 
0c a D4 CLRL Bi gta) Initialize update file Listhead 
B D 10$: PUSHL Ri Stack descriptor address for buffer 


Stack qualifier name string 
Get next qualifier value 
Save error status 


NOUS ARO OD NAME WIN O OONOAMUE WIN (OOD NAU EWN 0 OONAUE WN OOONOUS wr 


WWAIAAIAIWIAI AI POPIPIPINININIIDAN 4 4 4 2 ADO CODD OO0O0O00000000 


ce ee ee a ee eB ee ee ed ed od 


8(AP) 
CALLS peepa (AP 
MO RO,RO 
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P 8 OD 17 1 INCL Re ; bump file number 
52 A 4 19 #1 MOVL R10,R ; Save pointer to current block 
4 1c 314 BSBW SUM_GETSUMBLK ; Get wenery at for Update file block 
3 E 1F 14 BLBC RO,3 3; Error i 
01 Dd 146 CMPL R8,# ; First tine? 
4 1 14 BNEQ = § : If NEQ n 
Oc BC A 0D 144 MOVL R10,@12(AP) ; Return address of r. first block 
3259 ~€ B 145 15$ BLBC ~=—s_«aR9., 408 ; Branch if no va 
8 198 TSTW D €$W_LENGTH(R11) i; Is there lanything. there? 
1 14 BEQL 40$ :; If eql no. don 
01 D1 14 CMPL R8,#1 i Is this” first” time? 
13 14 BEQL 20$ i Tf EOL yes 
62 A 00 i 12 MOVL R10, (R2) 3 Link th s block with previous block 
8 133 ; Get memory block to save file specification 
$ AA DF 003A 154 208: PUSHAL UPF_Q “fet rasane ; Address to store memory address 
0 AA BF 8 D 155 PUSHAL UPF-Q-CMNT(R10) ; Address of word containing size 
00 BE 68 C 40 136 MOVZWL DSCSW- CENGTHCRI1) -@¢SP) ; Store file spec size 
enetttediedl™ 9¢ Fe oe 13 CALLS oe Gog 1OSGET. VM 3 get vicguel senery block 
; Error 
24 BA 04 BB 20 AA 53 Bek 159 MOVC3 UPF_Q_CMNT(R10), = ; Copy file spec STiepr ton from CLI area 
0055 160 DSCSA_POINTER(R11), = ; to virtual memory block 
0055 161 UPF _Q-CMNT+4(R10) 
B46 soi bna3 166 BRB 10$ ~ ; Loop until no more values 
O0000000'EF 00 ‘e Bpee 196 30$: cALLS 4 SUMSLIB_ERR ; Report Library error 
50 00848001 8F 00 0960 198 40$: MOVL #SUM$_NORMAL ,RO ; Set successful finish 
04 006 167 50$: RET 


H 7? 
vee 508 SUMSLIST_QUAL "Breen TSBs OSidaion Leta each ecm rey mags 1 sites 


«~SBTTL SUMSLIST_QUAL 


++ 
Functional description: 


This procedure creates a singly linked update files fet 
from the values of an /UPDAT quet}trer. The qualifier values 
are expected to be file specifications. if no values are 
supplied with the qualifer a List containing 


one entry is 
created. 


Calling sequence: 
CALLS/CALLG 


This procedure will normally be called from the process's 
qualifier action routine for /UPDATE. 


Inputs: 


CLI call back address 

CLI parameter qualifer descriptor block address 

CLI work area address 

address to put update files List address (the address 
of the first update file) 
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oo } & COOoOMwowc 


Outputs: 
; None 
“Implicit inputs: 
The CLI data base 


Implicit outputs: 
The update files List 
Procedure value: 
SUMS_NORMAL = Normal completion 
LIBS_INSVIRMEM, 
LIB$_BADBLOSIZ, 
LIBS_BADBLOADR = Error from calling LIBSGET_VM or LIBSFREE_VM 
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OSFC ENTRY SUMSLIST_QUAL,“M<R2,R3,R4,R5,R6,R7,R8,R10> 
58 01 g ; MOVL #1,R8 ; Initialise file number 
004 BSBW Sun calmness ; Get annery for Update file block 
5A 50 € BLBC RO,3 ; Error if LBC 


1 7 
seus SUNSLIST 
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10$: 


20$: 


30$: 
40$: 


PUSHAL 
_— 


R10,@16(AP) 


BCAP) ,R6 
CLISW_QDVALSIZ(R6) 


SYR ACLEVAL A? 


R10.Re 

SUM_GE TSUMBLK 
RO, 308 

R10, (R2) 


8(AP) 
12¢AP) 


R 
#3,04(AP) 


UPF Q_CMNT+4(R10) 
CLISW-RQSIZE(R7) 

(SP) ,UPF_Q_ CMNT(R10) 
- ’ og esser va 


#CLISV-MOREVALS, - 
CLI$B_RQSTAT(R75 ,10$ 
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Return address of first block 


Get parameter qualifer parameter block 
Are shece any values? 

No if EQL, return with empty node 

Set pointer to argument Lis 

Got first block so skip 


Save block address 

Increment le number 

Get memory block for next update file 
Error BC 

Link this block with previous block 


Push parameters, qualifer block address 
Work area address, 

Qualifer value descriptor block 

Get next qualifier value 


: Get memory block to save file specification 


Address to store memory address 
Address of word containing size 
Store file specification size 
Get etegue) senery block 


; Error 


Copy file specification from CLI area 


; to virtual memory block 


If more values go back for next 


#SURS NORMAL .RO ; Indicate successful completion 


#0, SUM$LIB_ERR 


Report Library error 


J 7 
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D .SBTTL SUMSLIST_PARAM 


+ 

; Functional description: 
This proce ure a } : a singly Linked update ie I list 
from the file sp ations of a parameter. ft 
parameter is nu tS thee t st will be empty. 

Calling sequence: 
CALLS/CALLG 


This procedure will normally be called from the program's 
parameter processing routines. 


Inputs: 
4(AP) = CLI call back address 
ed = CLI parameter anes descriptor block address 
12(AP) = CLI work area address 
16(AP) = address to put update files List address (the address 
of the first update file) 
Outputs: 
None 


Implicit inputs: 
The CLI data base 


Implicit outputs: 
The update files List 

Procedure value: 
SUMS_NORMAL = Normal completion 
LIBS_INSVIRMEM 


LIB$S~BADBLOSIZ, 
LIBS_BADBLOADR = Error from calling LIBSGET_VM or LIBSFREE_VM 


SOOOCGCCCCOCOCOCOCOCSOOSOSOOOSCSOSOSOSOOSOOSOOSOOOOOSOSOSOO 
leh h-A~A~-h~-A~-4 4-4-4 -1-4-4-4 4-4-4 4-4-4 4444-44-44 AAA 4 AAA AAA AAA AA AAA AAA AAA Ah 


- 


Sete Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Be Ge Ge Se Ge Se Se Gee Se Se Sse Ge Se Se Sse Ge Sse Se 
4 @e + 
4 


057C ENTRY SUMSLIST_PARAM, “M<R2,R3,R4,R5,R6,R8,R10> 
5A 10 AC 00 , MOVL 16(AP) ,R10 : Get address to return Update List 
6 D4 CLRL (R10) : Clear in case parameter is null 
8 D4 CLRL R8 ; Initialise file number 
56 O08 AC 00 MOVL B(AP) ,R6 ; Get request block address 
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#2 6-L IBSCET V 
UPF_Q_CMNT 


(R10) 

ScLISn- con R(R6) 
SUP Q"CMN T+O(R10) 

“CONCATINP, 

CLISB_ ROSTAT (R6), 


atl iSv 


PARMPRS, = 
VROSTAT CRE) 208 
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; Call CLI to get next file spec 


Work area address 
Fepyrer meen address 


Tidy stack 
Branch if no parameters 


Save block address 

Increment file number 

Get memory block for next update file 
Error if LBC 

Link. this block with previous block 


Get memory block to save file specification 


UPF _Q_CMNT+4(R10) 
CLISW-RQS ie 6) 
Ver ae a Vicohieee 


; Address to store memory address 

; Address of word containing size 

; Store file specification size 

; Get virtual memory block 

; Error if LBC 

; Copy file yada « fas 5 from CLI area 
; to virtual memory block 


; If more values go back for next 


osuns NORMAL,RO ; Indicate successful completion 


#0, SUMSLIB_ERR 


; Report Library error 
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~SBTTL SUM_GETSUMBLK 


+ 
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Functional description: 


This routine obtains a memory block for an Update files block 
and if successful initialises the block. 


Inputs: 
R8 = File number 
Outputs: 
R10 = Address of memory block 


Die Oo Oe Oe Oe Oe Oe Oe Oe Oe Be Oe Oe Se Oe Be ee ee 
a 
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UM_GETSUMBLK : 
PUSHR #*M<R2,R3,R4,R5> 
PUSHAB SUMSVIRT_ADDR 


SUMSBLSZ 
CALLS #2,G*LIBSGET_VM 
BLB ; Error if 


L : 
MOVL. W*SUMS$VIRT_ADDR,R10 : Get block address 

MOVCS #0,(R10),#0,#UPF_K BLN,(R10) ; Zero memory block 

MOVB R8,UPF_B FIL 0) ; Store file number 

MOVAL UPf_T_AUBST(R10), - 3; Set audit string descriptor 


: Address of size of block 
3; Get memory block 


UPF ~Q~AUDDS+4 (R10) 

OVAB SUM IRIAUDST,RO ; Point to ASCIC initial audit string 
MOVZBL (ROY+,R1 ; Get length of ASCII part of string 
MOVC3  R1,(RO),UPF_T_AUDST(R10): Copy into block 
MOVAB  UPf_T_NAMCRTOJ,R1 > Set NAM block pointer and 
SNAM_STORE NAM = R1, - ; initialise as a NAM block 

BID = #NAMSC BID, - 


BLN = #NAMSC_BLN 
MOVL #1,R0 ; Reset RO (Cleared by MOVC5) 


10$: 
POPR #*M<R2,R3,R4,R5> 
RSB 


- END 


Stack arguments for LIBSGET_VM 
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SUMSLIST 


Psect synopsis -SEP-1984 


bem erm oe rower on an $ 


! Psect synopsis ; 


Peer acne n een sce - 


PSECT name Allocation PSECT No. Attributes 


- ABS . 000 8 ( -) 00 ¢ Q.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
SABSS ( 152.) O17 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD 
SUMSRO_DATA Q 09 ¢ ) ¢ ( §°} NOPIC USR CON REL LCL NOSHR NOEXE RD 
SUMSRW DATA 8 is § $3) ( 3.) NOPIC USR CON REL LCL NOSHR NOEXE RD 
SUMSCOBE 000186 (¢ 390.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD 


bem wwe mmm ce coe ses steam ew ee b 


Performance indicators ! 


: 
¢eeoeeeecoece eee ew ee ene eee + 


Phase Page faults CPU Time Elapsed Time 


Initialization #6 90:00: 8-08 00:00:00.51 
Command processing 1 00: 8: 9. 0:00:02.2 
Pass 241 8:8 : 96 8:88 18: 
Symbol table sort 0:00:00. 0: O:0¢ 
Pass 2 7 0:00:01.49 8:88:8 34 
Symbol table output 10 00:00:00.07 BRR B48 
Psect synopsis output 88:00:00: 68 0:00:00.0 
Cross-reference output 808 40708 ees Bo 4 
Assembler run totals 50 00:00:10.0 00:00:24.54 


The working s** Limit was 1350 pages. 

34417 bytes_(oo pages) of virtual memory were used to buffer phe intermediate code. 

There were 30 pages of symbol table space allocated to hold 535 non-local and 15 local symbols. 
99 source Lines were read in Pass 1, producing 26 cbject records in Pass 2. 

2 pages of virtual memory were used to define 25 macros. 


power oeerce see eee eow ee seen caan + 
; Macro Library statistics : 
Macro Library name Macros defined 
-8255$DUA B25 SUN- 08 425Un 8: 4 
$255$DUA28: CSYSLIBISTARLET.MLB;2 16 
TOTALS (all Libraries) 20 


808 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SUMLIST/OBJ=O0BJ$:SUMLIST MSRC$:SUMLIST/UPDATE=(ENHS$: SUMLIST)+LIB$:SUM/LIB 


"SSEP=198e 08:59:08 ESUmVSecTSUMc 1ST mak: 


NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
NOWRT NOVEC LONG 


WRT NOVEC LONG 
NOWRT NOVEC LONG 
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